Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/iconalb/iconbook.frm

Text File | 1999-10-17 | 24KB | 714 lines

VERSION 4.00
Begin VB.Form IconBook
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   Caption         =   "IconAlbum Deluxe"
   ClientHeight    =   8595
   ClientLeft      =   570
   ClientTop       =   210
   ClientWidth     =   11175
   Height          =   9000
   Icon            =   "IconBook.frx":0000
   Left            =   510
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   573
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   745
   Top             =   -135
   Width           =   11295
   Begin VB.Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Selected Icon"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   2400
      Left            =   0
      TabIndex        =   5
      Top             =   4815
      Width           =   2505
      Begin VB.PictureBox Pic3
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   480
         Left            =   225
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   8
         Top             =   930
         Width           =   480
      End
      Begin VB.Shape Shape2
         BackColor       =   &H00E0E0E0&
         BorderColor     =   &H00008000&
         BorderWidth     =   3
         Height          =   1050
         Left            =   960
         Shape           =   5  'Rounded Square
         Top             =   750
         Width           =   1110
      End
      Begin VB.Label Label4
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         ForeColor       =   &H00C00000&
         Height          =   240
         Left            =   135
         TabIndex        =   7
         Top             =   360
         Width           =   1995
      End
      Begin VB.Image Image1
         Height          =   990
         Left            =   1020
         Stretch         =   -1  'True
         Top             =   765
         Width           =   960
      End
      Begin VB.Shape Shape1
         BackColor       =   &H00E0E0E0&
         BorderColor     =   &H00008000&
         BorderWidth     =   3
         Height          =   645
         Left            =   165
         Shape           =   5  'Rounded Square
         Top             =   840
         Width           =   645
      End
      Begin VB.Label Label3
         Alignment       =   2  'Center
         BackColor       =   &H00008000&
         BorderStyle     =   1  'Fixed Single
         ForeColor       =   &H0080FFFF&
         Height          =   285
         Left            =   45
         TabIndex        =   6
         Top             =   1935
         Width           =   2355
      End
   End
   Begin VB.PictureBox Pic2
      AutoRedraw      =   -1  'True
      BackColor       =   &H00C0C0C0&
      Height          =   7980
      Left            =   2580
      ScaleHeight     =   528
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   567
      TabIndex        =   2
      Top             =   555
      Width           =   8565
      Begin VB.Image Im1
         Height          =   480
         Index           =   0
         Left            =   45
         Top             =   45
         Visible         =   0   'False
         Width           =   480
      End
   End
   Begin VB.DirListBox Dir1
      BackColor       =   &H00E0E0E0&
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   3630
      Left            =   0
      TabIndex        =   1
      Top             =   555
      Width           =   2490
   End
   Begin VB.FileListBox File1
      Height          =   3375
      Left            =   2520
      Pattern         =   "*.ico"
      TabIndex        =   0
      Top             =   3690
      Visible         =   0   'False
      Width           =   1590
   End
   Begin VB.PictureBox ImageList1
      BackColor       =   &H80000005&
      Height          =   480
      Left            =   450
      ScaleHeight     =   420
      ScaleWidth      =   1140
      TabIndex        =   9
      Top             =   3420
      Width           =   1200
   End
   Begin VB.Image Tool1
      Height          =   360
      Index           =   6
      Left            =   2385
      Picture         =   "IconBook.frx":0442
      Top             =   45
      Width           =   345
   End
   Begin VB.Image Tool1
      Height          =   360
      Index           =   5
      Left            =   1935
      Picture         =   "IconBook.frx":05E4
      Top             =   45
      Width           =   345
   End
   Begin VB.Image Tool1
      Height          =   360
      Index           =   4
      Left            =   1485
      Picture         =   "IconBook.frx":0786
      Top             =   45
      Width           =   345
   End
   Begin VB.Image Tool1
      Height          =   360
      Index           =   3
      Left            =   1125
      Picture         =   "IconBook.frx":0928
      Top             =   45
      Width           =   345
   End
   Begin VB.Image Tool1
      Height          =   360
      Index           =   2
      Left            =   765
      Picture         =   "IconBook.frx":0ACA
      Top             =   45
      Width           =   345
   End
   Begin VB.Image Tool1
      Height          =   360
      Index           =   1
      Left            =   405
      Picture         =   "IconBook.frx":0C6C
      Top             =   45
      Width           =   345
   End
   Begin VB.Image Tool1
      Height          =   360
      Index           =   0
      Left            =   45
      Picture         =   "IconBook.frx":0E0E
      Top             =   45
      Width           =   345
   End
   Begin VB.Image Image2
      Height          =   360
      Index           =   13
      Left            =   2160
      Picture         =   "IconBook.frx":0FB0
      Top             =   7830
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.Image Image2
      Height          =   360
      Index           =   12
      Left            =   1800
      Picture         =   "IconBook.frx":1152
      Top             =   7830
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.Image Image2
      Height          =   360
      Index           =   11
      Left            =   1440
      Picture         =   "IconBook.frx":12F4
      Top             =   7830
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.Image Image2
      Height          =   360
      Index           =   10
      Left            =   1080
      Picture         =   "IconBook.frx":1496
      Top             =   7830
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.Image Image2
      Height          =   360
      Index           =   9
      Left            =   720
      Picture         =   "IconBook.frx":1638
      Top             =   7830
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.Image Image2
      Height          =   360
      Inde